Imports Microsoft.VisualBasic
Imports System.Data.Sql
Imports System.Data.SqlClient
Imports System
Imports System.Data
Imports GTSDALTableAdapters
Imports GTSDAL


Namespace GTSSystem.BLL
    <System.ComponentModel.DataObject()> _
    Public Class Reports
        <System.ComponentModel.DataObjectMethod(ComponentModel.DataObjectMethodType.Select)> _
        Public Function getShipments(ByVal ReferenceNumber As Integer) As ShipmentDataTable
            Dim user As MembershipUser = Membership.GetUser
            Dim p As ProfileCommon = ProfileCommon.Create(user.UserName)
            Dim BranchID As Integer = p.BranchId
            Dim UserName As String = p.UserName
            Dim ClientID As Integer = p.ClientId
            Dim ShipAdapter As ShipmentTableAdapter = New ShipmentTableAdapter

            Return ShipAdapter.GetShipmentByReferenceNumber(ReferenceNumber)

        End Function
    End Class
End Namespace

